Crosby Indicator

To move the linkage manually move the BLUE point.  To automate the movement give the Speed slider a non-zero value. If this fails to work (which can happen after clicking the  reset icon) then right-click on the BLUE point and select "Animation on" or alternatively just reload the page.

Frame DImensions

Animation Speed

Locus

Drag Point

h_{PL} = 0.24 (slider from Δω to h_2, step 0.1)
h_{PU} = 1.62 (slider from h_{PL} to 3, step 0.1)
Δω = 0.17 (slider from 0 to 2, step 0.01)
P_7: (Δω, Δω)
ω = 3.54 (slider from 2 * Δω to 20, step 0.1)
P_6: (ω - Δω, Δω)
G = Midpoint(P_7, P_6)
p = Circle(G, Δω)
h = Segment(G, P_7)
I = Intersect(p, h)
c_3 = Circle(I, h_{PL})
q = Circle(I, h_{PU})
K = Rotate(P_7, 270*°, I)
j = Ray(I, K)
L = Intersect(q, j)
t_2 = Ray(I, L)
G_1 = Intersect(c_3, t_2)
a_3 = Segment(G_1, L)
BasePoint_1 = Intersect(xAxis, yAxis)
h_1 = 1.02 (slider from Δω to 10, step 0.1)
h_2 = 2.42 (slider from Δω to 10, step 0.1)
B: (0, h_1)
C: (ω, h_2)
BasePoint_2: (ω, 0)
P_1: (-Δω, h_1)
P_2: (-Δω, -Δω)
P_3: (ω + Δω, -Δω)
P_4: (ω + Δω, h_2)
P_5: (ω - Δω, h_2)
P_8: (Δω, h_1)
C_1: (0, h_1 + Δω)
C_2: (ω, h_2 + Δω)
poly1, p_1, p_2, p_3, p_4, p_5, p_6, p_7, p_8 = Polygon(P_1, P_2, P_3, P_4, P_5, P_6, P_7, P_8)
c_2 = CircumcircleArc(P_8, C_1, P_1)
d_3 = CircumcircleArc(P_4, C_2, P_5)
A = (-3.9404065633558045, 5.917967183220977)
D = (-1.2804065633558046, 5.917967183220977)
E = (-1.2804065633558046, 1.1082096626816684)
F = (-3.9404065633558045, 1.1082096626816684)
poly2, a_1, d_1, e_2, f_2 = Polygon(A, D, E, F)
a = 3.7 (slider from 0 to 5, step 0.1)
g = Circle(B, a)
k = Circle(C, 3 * a)
Speed = 0 (slider from -10 to 10, step 0.1)
A_1 = (-3.9404065633558045, 0.9694949863071275)
D_1 = (-1.2804065633558044, 0.9694949863071275)
E_1 = (-1.2804065633558044, -0.5)
F_1 = (-3.9404065633558045, -0.5)
poly2_1, a_2, d_2, e_1, f_1 = Polygon(A_1, D_1, E_1, F_1)
b_2 = Segment(G, P_6)
H = Intersect(p, b_2)
G' = Rotate(G, 90*°, H)
J = Rotate(P_6, 90*°, H)
b' = Segment(G', J)
G'_1 = Rotate(G, 270*°, I)
h' = Segment(G'_1, K)
i = Ray(H, J)
r = Circle(H, h_{PU})
M = Intersect(r, i)
poly3, l, i_1, h_3, m = Polygon(L, I, H, M)
n = Line(G, l)
N = Intersect(n, m)
M' = Rotate(M, 90*°, N)
s = CircumcircleArc(M, M', L)
O = Point(a_3)
t = OrthogonalLine(O, l)
P = Intersect(t, h_3)
b_1 = Segment(G, M')
c_1 = Segment(O, L)
g_1 = Segment(P, M)
k_1 = Circle(O, Δω)
q_1 = Circle(P, Δω)
l_1 = Segment(O, P)
Q = Intersect(b_1, l_1)
r_1 = Circle(Q, Δω)
j_1 = Segment(Q, M')
R = Intersect(r_1, j_1)
s_1 = CircumcircleArc(P, R, O)
poly4, o, i_2, h_4, p_9 = Polygon(O, I, H, P)
b = 1.3 (slider from 0 to 5, step 0.1)
c = 1.6 (slider from 0 to 5, step 0.1)
d = 2.32 (slider from 0 to 5, step 0.1)
e = 2.33 (slider from 0 to 5, step 0.1)
f = 9.9 (slider from 0 to 15, step 0.1)
t_1 = Circle(B, a)
g_2 = Circle(Q, b)
k_2 = Circle(C, c)
S, T = Intersect(g_2, k_2)
m_1 = Ray(Q, S)
q_2 = Circle(S, d)
U, B_1 = Intersect(q_2, m_1)
r_2 = Circle(U, e)
V, W = Intersect(r_2, t_1)
n_1 = Ray(W, U)
s_2 = Circle(U, f)
Z = Intersect(s_2, n_1)
j_2 = Segment(B, W)
l_2 = Segment(W, Z)
m_2 = Segment(C, S)
n_2 = Segment(Q, U)
loc1 = Locus(Z, O)
H_1 = Intersect(l_2, j_2)
I_1 = Intersect(n_2, l_2)
J_1 = Intersect(n_2, m_2)
b_3 = Segment(B, Q)
e_3 = Segment(Q, C)
L_1 = Intersect(b_3, j_2)
M_1 = Intersect(b_3, n_2)
f_3 = Circle(M_1, C)
g_3 = Circle(J_1, C)
K_1, N_1 = Intersect(g_3, f_3)
k_3 = Circle(I_1, Z)
O_1 = Intersect(k_3, l_2)
u = false
v = false